home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01962_Script_Egypt MAP < prev    next >
Text File  |  1995-09-13  |  8KB  |  317 lines

  1. on EMapRollover 
  2.   repeat while rollover(6)
  3.     EgyptCursor
  4.     if the mouseV > 285 and the mouseV < 345 then
  5.       if the mouseH > 61 and the MouseH < 124 then
  6.         set the castnum of sprite 6 = the number of cast "PE080200.PIC"
  7.         updatestage
  8.         if (the mousedown) then
  9.           puppetsprite 2, false
  10.           puppetsprite 16, false
  11.           go "Map1"
  12.           abort
  13.         end if
  14.       else
  15.         if the mouseH > 124 and the MouseH < 188 then
  16.           set the castnum of sprite 6 = the number of cast "PE080300.PIC"
  17.           updatestage
  18.           if (the mousedown) then
  19.             puppetsprite 2, false
  20.             puppetsprite 16, false
  21.             go "map2"
  22.             abort
  23.           end if
  24.         end if
  25.       end if
  26.     else
  27.       if the mouseV > 345 and the mouseV < 404 then
  28.         if the mouseH > 61 and the MouseH < 124 then
  29.           set the castnum of sprite 6 = the number of cast "PE080400.PIC"
  30.           updatestage
  31.           if (the mousedown) then
  32.             puppetsprite 2, false
  33.             puppetsprite 16, false
  34.             go "map3"
  35.             abort
  36.           end if
  37.         else
  38.           if the mouseH > 124 and the MouseH < 188 then
  39.             set the castnum of sprite 6 = the number of cast "PE080500.PIC"
  40.             updatestage
  41.             if (the mousedown) then
  42.               puppetsprite 2, false
  43.               puppetsprite 16, false
  44.               go "map4"
  45.               abort
  46.             end if
  47.           end if
  48.         end if
  49.       end if
  50.     end if
  51.   end repeat
  52.   if rollover(15) then
  53.     HandCursor
  54.   else
  55.     if rollover(16) then
  56.       ArrowCursor
  57.     else
  58.       ArrowCursor
  59.     end if
  60.   end if
  61. end 
  62.  
  63. on EMap1Rollover 
  64.   repeat while rollover(6)
  65.     EgyptCursor
  66.     if the mouseV > 285 and the mouseV < 345 then
  67.       if the mouseH > 61 and the MouseH < 124 then
  68.         set the castnum of sprite 6 = the number of cast "PE080200.PIC"
  69.         updatestage
  70.         if (the mousedown) then
  71.           puppetsprite 2, false
  72.           puppetsprite 16, false
  73.           go "Map1"
  74.           abort
  75.         end if
  76.       else
  77.         if the mouseH > 124 and the MouseH < 188 then
  78.           set the castnum of sprite 6 = the number of cast "PE080300.PIC"
  79.           updatestage
  80.           if (the mousedown) then
  81.             puppetsprite 2, false
  82.             puppetsprite 16, false
  83.             go "map2"
  84.             abort
  85.           end if
  86.         end if
  87.       end if
  88.     else
  89.       if the mouseV > 345 and the mouseV < 404 then
  90.         if the mouseH > 61 and the MouseH < 124 then
  91.           set the castnum of sprite 6 = the number of cast "PE080400.PIC"
  92.           updatestage
  93.           if (the mousedown) then
  94.             puppetsprite 2, false
  95.             puppetsprite 16, false
  96.             go "map3"
  97.             abort
  98.           end if
  99.         else
  100.           if the mouseH > 124 and the MouseH < 188 then
  101.             set the castnum of sprite 6 = the number of cast "PE080500.PIC"
  102.             updatestage
  103.             if (the mousedown) then
  104.               puppetsprite 2, false
  105.               puppetsprite 16, false
  106.               go "map4"
  107.               abort
  108.             end if
  109.           end if
  110.         end if
  111.       end if
  112.     end if
  113.   end repeat
  114.   if rollover(8) then
  115.     EgyptCursor
  116.   else
  117.     if rollover(9) then
  118.       EgyptCursor
  119.     else
  120.       if rollover(11) then
  121.         EgyptCursor
  122.       else
  123.         if rollover(15) then
  124.           HandCursor
  125.         else
  126.           if rollover(16) then
  127.             ArrowCursor
  128.           else
  129.             ArrowCursor
  130.           end if
  131.         end if
  132.       end if
  133.     end if
  134.   end if
  135. end 
  136.  
  137.  
  138. on EMap3Rollover 
  139.   repeat while rollover(6)
  140.     EgyptCursor
  141.     if the mouseV > 285 and the mouseV < 345 then
  142.       if the mouseH > 61 and the MouseH < 124 then
  143.         set the castnum of sprite 6 = the number of cast "PE080200.PIC"
  144.         updatestage
  145.         if (the mousedown) then
  146.           puppetsprite 2, false
  147.           puppetsprite 16, false
  148.           go "Map1"
  149.           abort
  150.         end if
  151.       else
  152.         if the mouseH > 124 and the MouseH < 188 then
  153.           set the castnum of sprite 6 = the number of cast "PE080300.PIC"
  154.           updatestage
  155.           if (the mousedown) then
  156.             puppetsprite 2, false
  157.             puppetsprite 16, false
  158.             go "map2"
  159.             abort
  160.           end if
  161.         end if
  162.       end if
  163.     else
  164.       if the mouseV > 345 and the mouseV < 404 then
  165.         if the mouseH > 61 and the MouseH < 124 then
  166.           set the castnum of sprite 6 = the number of cast "PE080400.PIC"
  167.           updatestage
  168.           if (the mousedown) then
  169.             puppetsprite 2, false
  170.             puppetsprite 16, false
  171.             go "map3"
  172.             abort
  173.           end if
  174.         else
  175.           if the mouseH > 124 and the MouseH < 188 then
  176.             set the castnum of sprite 6 = the number of cast "PE080500.PIC"
  177.             updatestage
  178.             if (the mousedown) then
  179.               puppetsprite 16, false
  180.               puppetsprite 2, false
  181.               go "map4"
  182.               abort
  183.             end if
  184.           end if
  185.         end if
  186.       end if
  187.     end if
  188.   end repeat
  189.   if rollover(8) then
  190.     EgyptCursor
  191.   else
  192.     if rollover(9) then
  193.       EgyptCursor
  194.     else
  195.       if rollover(10) then
  196.         EgyptCursor
  197.       else
  198.         if rollover(11) then
  199.           EgyptCursor
  200.         else
  201.           if rollover(15) then
  202.             HandCursor
  203.           else
  204.             if rollover(16) then
  205.               ArrowCursor
  206.             else
  207.               ArrowCursor
  208.             end if
  209.           end if
  210.         end if
  211.       end if
  212.     end if
  213.   end if
  214. end 
  215.  
  216.  
  217.  
  218.  
  219. on ResetEMaps
  220.   set the castnum of sprite 6 = the number of cast "PE080200.PIC"
  221.   go "MapX"
  222. end
  223.  
  224. on resetMapText
  225.   set the locH of sprite 16 = 750
  226.   updatestage
  227.   puppetsprite 16, false
  228. end
  229.  
  230.  
  231. on WeedWack whichsprite, whichCast, whichsound
  232.   resetMapText
  233.   ArrowCursor
  234.   set gSprite = whichsprite
  235.   set gCast1 = whichCast
  236.   set gCast2 = gCast1 + 1
  237.   set gCast3 = gCast1 + 2
  238.   set the castNum of sprite gSprite = gCast1
  239.   set Count = 0
  240.   repeat while count < 3 and (the MouseUp)
  241.     puppetsound whichsound
  242.     set the castNum of sprite gSprite = gCast2
  243.     updatestage
  244.     wait .2
  245.     set the castNum of sprite gSprite = gCast3
  246.     updatestage
  247.     wait .5
  248.     set the castNum of sprite gSprite = gCast2
  249.     updatestage
  250.     wait .2
  251.     set the castNum of sprite gSprite = gCast1
  252.     updatestage
  253.     Puppetsound 0
  254.     wait .5
  255.     if the mousedown then
  256.       exit repeat
  257.     end if
  258.     set count = count + 1
  259.   end repeat
  260.   set the castnum of sprite whichsprite = gCast1
  261.   updatestage
  262.   Puppetsound 0
  263. end
  264.  
  265. on Arrow whichsprite, whichsound
  266.   resetMapText
  267.   set startH = the locH of sprite whichsprite
  268.   set MoveForward = startH
  269.   puppetsound whichsound
  270.   repeat while the locH of sprite whichsprite < 625
  271.     set the locH of sprite whichsprite = (MoveForward + 4)
  272.     set MoveForward = the LocH of sprite whichsprite
  273.     updatestage
  274.   end repeat
  275.   set the locH of sprite whichsprite = StartH
  276.   updatestage
  277.   wait 1
  278. end
  279.  
  280. on ArrowThrow whichsprite, whichCast, whichsound, HowManyCast, whichCast2, whichsprite2, LocationH
  281.   resetMapText
  282.   ArrowCursor
  283.   puppetsprite whichsprite, true
  284.   set gSprite = whichsprite
  285.   set gCast = whichCast
  286.   --set gEndCast = whichCast + (HowManyCast - 1)
  287.   set the castNum of sprite gSprite = gCast
  288.   set count = 0
  289.   set the castNum of sprite gSprite = gCast +1
  290.   updatestage
  291.   wait .3
  292.   repeat while count < HowManyCast and (the MouseUp)
  293.     set theCast = the castNum of sprite gSprite
  294.     set the castNum of sprite gSprite = theCast + 1
  295.     updatestage
  296.     wait .02
  297.     set count = count + 1
  298.   end repeat
  299.   puppetsound whichsound
  300.   set the locH of sprite whichsprite2 = LocationH
  301.   updatestage
  302.   set startH = the locH of sprite whichsprite2
  303.   set MoveForward = startH
  304.   repeat while the locH of sprite whichsprite2 < 640
  305.     set the locH of sprite whichsprite2 = (MoveForward + 4)
  306.     set MoveForward = the LocH of sprite whichsprite2
  307.     updatestage
  308.   end repeat
  309.   wait 1
  310.   set the locH of sprite whichsprite2 = 660
  311.   set the castNum of sprite gSprite = gCast
  312.   updatestage
  313.   puppetsprite whichsprite, false
  314. end
  315.  
  316.  
  317.